home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iivdrd.asp < prev    next >
Encoding:
Text File  |  1999-06-03  |  2.6 KB  |  123 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8.     <!--#include file="iivdrd.str"-->
  9. <% 
  10. Dim path, currentobj, redirto
  11.  
  12. On Error Resume Next 
  13. path=Session("dpath")
  14. Set currentobj=GetObject(path)
  15.  
  16. function redirOpt(optionStr)
  17.         redirOpt = checkboxVal(0,InStr(currentobj.HttpRedirect,optionStr) > 0 ,"chk" + optionStr,"setHttpRedirect();",false) 
  18. end function
  19.  
  20.  %>
  21.  
  22. <!--#include file="iiset.inc"-->
  23. <!--#include file="iisetfnt.inc"-->
  24. <HTML>
  25. <HEAD>
  26. <TITLE></TITLE>
  27. <SCRIPT LANGUAGE="JavaScript">
  28.  
  29.     var Global=top.title.Global;
  30.  
  31.     <% if UCase(Right(currentobj.ADsPath,4))="ROOT" then %> 
  32.         Global.helpFileName="iipy_3";    
  33.     <% else %>
  34.         Global.helpFileName="iipy_5";
  35.     <% end if %>
  36.     
  37.     function warnWrkingSite()
  38.     {
  39.         if (top.title.nodeList[Global.selId].isWorkingServer)
  40.         {
  41.             alert("<%= L_WORKINGSERVER_TEXT %>");
  42.         }
  43.     }
  44.  
  45.     function listFuncs(){
  46.         this.writeList=buildListForm;
  47.     }
  48.  
  49.     function buildListForm(){
  50.     }
  51.     
  52.     function setHttpRedirect(){
  53.         redirstr = document.userform.hdnHttpRedirect.value + ",";
  54.         if (document.userform.chkEXACT_DESTINATION.checked){
  55.             redirstr += "EXACT_DESTINATION,";
  56.         }
  57.         if (document.userform.chkCHILD_ONLY.checked){
  58.             redirstr += "CHILD_ONLY,";
  59.         }
  60.         if (document.userform.chkPERMANENT.checked){
  61.             redirstr += "PERMANENT, ";
  62.         }
  63.         
  64.  
  65.         document.userform.HttpRedirect.value = redirstr;
  66.             
  67.     }
  68.  
  69.     listFunc=new listFuncs();
  70. </SCRIPT>
  71. </HEAD>
  72.  
  73. <BODY BGCOLOR="<%= Session("BGCOLOR") %>" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF"  >
  74.  
  75. <%= sFont("","","",True) %>
  76.  
  77. <FORM NAME="userform" onSubmit="return false">
  78.  
  79. <TABLE WIDTH="100%" BORDER=0 CELLPADDING=0>
  80.  
  81. <TR>
  82.     <TD VALIGN="Bottom">
  83.         <%= sFont("","","",True) %>
  84.             <%= L_REDIRTO_TEXT %> 
  85.             <% redirto=currentobj.HttpRedirect
  86.             if InStr(redirto,",") > 0 then
  87.                 redirto = Left(redirto,InStr(redirto,",")-1)
  88.             else
  89.                 redirto = "http://"
  90.             end if
  91.             %>
  92.             <%= inputbox(0,"text","hdnHttpRedirect",redirto,L_REDIRTO_NUM,"warnWrkingSite();setHttpRedirect();","","setHttpRedirect();",False,False,False) %>
  93.             <INPUT TYPE="hidden" NAME="HttpRedirect" VALUE="<%= currentobj.HttpRedirect %>">
  94.               
  95.         </FONT>
  96.     </TD>
  97. </TR>
  98. <TR>
  99.     <TD> </TD>
  100. </TR>
  101.  
  102. <TR>
  103.     <TD>
  104.         <%= sFont("","","",True) %>
  105.             <%= L_CLIENTSENTTO_TEXT %><P>
  106.             <%= redirOpt("EXACT_DESTINATION") %><%= L_EXACTURL_TEXT %><BR>
  107.             <%= redirOpt("CHILD_ONLY") %><%= L_DIRBELOW_TEXT %><BR>
  108.             <%= redirOpt("PERMANENT") %><%= L_PERM_TEXT %>
  109.         </FONT>
  110.     </TD>
  111. </TR>
  112.  
  113. </TABLE>
  114.  
  115. </FORM>
  116. </FONT>
  117. </BODY>
  118.  
  119. </HTML>
  120.  
  121. <% end if %>
  122.  
  123.